﻿<Serializable()> _
Public Class FreeTextCriteria
    Implements ICriteriaComponent

    Protected mText As String

    Public Sub New(ByVal Text As String)
        mText = Text
    End Sub

    Public Function GetText() As String Implements ICriteriaComponent.GetText
        Return GetText(QueryOptions.DefaultOptions)
    End Function

    Public Function GetText(Options As QueryOptions) As String Implements ICriteriaComponent.GetText
        Return mText
    End Function

    Public ReadOnly Property ShouldRender() As Boolean Implements ICriteriaComponent.HasContent
        Get
            Return True
        End Get
    End Property
End Class
